home *** CD-ROM | disk | FTP | other *** search
INI File | 2000-06-08 | 13.6 KB | 249 lines |
- RuleKey), $(NewValueList)
- set RegistryErrorIndex = $($R0)
- Ifstr $(RegistryErrorIndex) != NO_ERROR
- CloseRegKey $(SoftProductKey)
- CloseRegKey $(SoftNetRuleKey)
- CloseRegKey $(SoftServiceKey)
- CloseRegKey $(SoftLinkageKey)
- CloseRegKey $(KeyParameters)
- goto fatalRegistry
- endif
- Set NewValueList = {{NbProvider,$(NoTitle),$(!REG_VT_SZ),"_nb"}}
- Shell $(UtilityInf), AddValueList, $(KeyParameters), $(NewValueList)
- Ifstr $(RegistryErrorIndex) != NO_ERROR
- CloseRegKey $(SoftProductKey)
- CloseRegKey $(SoftNetRuleKey)
- CloseRegKey $(SoftServiceKey)
- CloseRegKey $(SoftLinkageKey)
- goto fatalRegistry
- endif
- CloseRegKey $(SoftProductKey)
- CloseRegKey $(SoftNetRuleKey)
- CloseRegKey $(SoftServiceKey)
- CloseRegKey $(SoftLinkageKey)
- endif
- goto writeparameters
- writeparameters = +
- CloseRegKey $(KeyParameters)
- EndWait
- goto successful
- bindingadapter =+
- set Error = "Binding: Sorry, not yet implemented."
- goto fatal
- removeadapter = +
- Shell $(UtilityInf), RemoveSoftwareComponent, $(Manufacturer), +
- $(ProductSoftwareName)
- ifint $($ShellCode) != $(!SHELL_CODE_OK)
- Debug-Output "ShellCode error"
- goto ShellCodeError
- endif
- set RegistryErrorIndex = $($R0)
- Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
- goto fatalregistry
- endif
- goto end
- UpgradeSoftware = +
- ifstr(i) $(ProductKeyName) == $(!NTN_RegBase)
- OpenRegKey $(!REG_H_LOCAL) "" $(ProductKeyName) $(MAXIMUM_ALLOWED) KeyProduct
- Ifstr $(KeyProduct) != $(KeyNull)
- GetRegValue $(KeyProduct),"MajorVersion", VersionInfo
- set Version = *($(VersionInfo), 4)
- Shell $(UtilityInf), GetInfFileNameFromRegistry, $(KeyProduct)
- ifint $($ShellCode) != $(!SHELL_CODE_OK)
- Debug-Output "ShellCode error"
- goto ShellCodeError
- endif
- set !UG_Filename = $($R0)
- ifstr(i) $(!UG_Filename) != ""
- install "Install-Update"
- ifstr(i) $(STF_INSTALL_OUTCOME) != STF_SUCCESS
- goto fatal
- endif
- endif
- SetRegValue $(KeyProduct) {MajorVersion,$(NoTitle),$(!REG_VT_SZ),$(ProductMajorVersion)}
- SetRegValue $(KeyProduct) {MinorVersion,$(NoTitle),$(!REG_VT_SZ),$(ProductMinorVersion)}
- ifint $(Version) != $(ProductVersion)
- endif
- CloseRegKey $(KeyProduct)
- else
- goto fatalregistry
- endif
- endif
- goto end
- successful = +
- goto end
- warning = +
- Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), "WARNING", $(Error)
- ifint $($ShellCode) != $(!SHELL_CODE_OK)
- goto ShellCodeError
- endif
- ifstr(i) $($R1) == "OK"
- goto $(to)
- else-ifstr(i) $($R1) == "CANCEL"
- goto $(from)
- else
- goto "end"
- endif
- nonfatalinfo = +
- Set CommonStatus = STATUS_USERCANCEL
- Set Severity = STATUS
- goto nonfatalmsg
- nonfatal = +
- Set Severity = NONFATAL
- goto nonfatalmsg
- nonfatalmsg = +
- ifstr(i) $(Error) == ""
- Shell $(UtilityInf) RegistryErrorString "SETUP_FAIL"
- ifint $($ShellCode) != $(!SHELL_CODE_OK)
- goto ShellCodeError
- endif
- set Error = $($R0)
- endif
- Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), $(Severity), $(Error)
- ifint $($ShellCode) != $(!SHELL_CODE_OK)
- goto ShellCodeError
- endif
- ifstr(i) $($R1) == "OK"
- goto $(from)
- else
- goto "end"
- endif
- fatalregistry = +
- Shell $(UtilityInf) RegistryErrorString $(RegistryErrorIndex)
- ifint $($ShellCode) != $(!SHELL_CODE_OK)
- goto ShellCodeError
- endif
- set Error = $($R0)
- goto fatal
- fatal = +
- ifstr(i) $(Error) == ""
- Shell $(UtilityInf) RegistryErrorString "SETUP_FAIL"
- ifint $($ShellCode) != $(!SHELL_CODE_OK)
- goto ShellCodeError
- endif
- set Error = $($R0)
- endif
- Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), "FATAL", $(Error)
- ifint $($ShellCode) != $(!SHELL_CODE_OK)
- goto ShellCodeError
- endif
- goto setfailed
- ShellCodeError = +
- set DlgType = "MessageBox"
- set STF_MB_TITLE = $(ShellCodeErrorTitle)
- set STF_MB_TEXT = $(ShellCodeErrorText)
- set STF_MB_TYPE = 1
- set STF_MB_ICON = 3
- set STF_MB_DEF = 1
- ui start "Error Message"
- goto setfailed
- setfailed = +
- set CommonStatus = STATUS_FAILED
- ifstr(i) $(OEM_ABANDON_ON) == TRUE
- set OEM_ABANDON_ON = FALSE
- goto removeadapter
- endif
- goto end
- end = +
- goto term
- term = +
- Return $(CommonStatus)
- [Install-== bind
- set StaSTATUS_FAILED
- $($2)
- str(i) $(DoCo$(Uteet-tiifstsT
- If
- Seifsts-,$(!REG_V$(!STF_CWDD SetupMWIE
- WSSYS = $(!STF_NTo$(Uteet-tiifstsT
- If
- Seifsts-App$(!STF_CWDD SetupMWIE
- WSSYS = ShellCodeError
- endif
- )
- Ifstr(i) $(DoC endirPath CPA_FLUSHrStriLIST OEM_ABAN AdaptfstsIn
- If
- S ShellCodeError
- endif
- )
- tallstr(i) $(DoC CodeError
- $(CommonStastall [Instal-== bind
- se = 2
- KeyNullstal-== binOVERWRITE2
- KeyNVERIFYrorStrOLDERullsta$(Uteet-tiifstsT
- If
- Seifsts-,$(!REG_V$(!STF_CWDD SetupMWIE
- WSSYS = $(!STF_NTsta$(Uteet-tiifstsT
- If
- Seifsts-App$(!STF_CWDD SetupMWIE
- WSSYS = Shel$(Uteet-tiifstsT
- If
- Seifsts-tant(!STF_CWDD SetupMWIE
- WSSYS = ShelendirPath CPA_FLUSHrStriLIST OEM_ABAN AdaptfstsIn
- If
- S Shele $(Cedia = #("Source Med[Instal1SoftwareName = "MommonSt) $(! Disk #1" , TAGg "Uoftstem32\dri$(CoseRegK +
- [InPathPRODUC set WinntInPathPLATFORMet I386]
- s-tan[In1,= 2
- Koemsubro.ll ,= 2SIZE=1000,= 2
- RE(STF=
- ifstr(i) ]
- s-[Options[In1,stem32\dri , SIZE=999]
- s-App[In[nguageList = ^(Lan[InstalENG = NetTran(SheENG\driversDISPERFuctSoftwareName = ""]
- MCAFEEFWENG\droseCaion]
- "ched@4s NT(subro"droseCa= 0
-
- "Ca= 0"droseCa= 0Mlmsg"ched@4s NT(cAfee FegisisBindicorreetlyduct)
- ed. "+!SHELL_COD"Are you sure you wEFWfataca= 0
- copyegisf s?"droseCa= 0Caisg"cAfee Fisubroui start "Eose(She1uctSoftwCopyegi: "Eose(She2uctSoftwTo: "E set-title tSoftwareName = "McAfee Firewall Network Driver"
- ("Source MeoftwareName = "McAfee Firewall Network Driver"
- (roductSoftoftwareName = "McAfee Firewall Network Driver"
- =ftwareName = "McAfee Firewall NeF_MB_TITLE = $(SheluctSoftwEut "Sh" set-title $(FF_MB_TEXT = $(She= 2
- KeyN eng-Out = $yet [
- read-syms ENG\drHelpe = 2
- KeyN&Help
- to e = 2
- KeyNCa= 0"drOK = 0
- NoTitlr(i) $Help└_RH_MaKeyNull= "NCPA"tSoftwCo"NCPA"ull=a= 0
-
-
- KeyNCa= 0"dr
- Deboot+
- lgENG\drG plse
- se"NetTmiz) $(!: "Et Rad1KeyN&MinTmiz @12 Used "Et Rad2KeyN&Bala= 0 "Et Rad3=ftwa&axTmiz Th ghK)
- &&== "neet-tiame)r = +
- ftwt Rad" e)r = emp2 _Psg"cBF" e)Caion]
- =
- set-title $(FNetTranGreyfailetionHelp└_RH_MaKey
- IDH_DB_ Debug-O ifs$(FMZÉ ╕ ÿ @ Ç ║ ┤ ═!╕L═!ThisBpro _PPhellCodebe runntaiDOS m-Ou.
- u PE L <Yò u α Äü2╨â>